home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / oper_sys / mach / amiga / scsi9091.lzh / tester.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-02-10  |  680 b   |  48 lines
  1. #include <exec/types.h>
  2. #include <exec/ports.h>
  3.  
  4. #include <inline/exec.h>
  5.  
  6. #include <setjmp.h>
  7.  
  8. jmp_buf jb;
  9.  
  10. extern struct MsgPort *CreatePort();
  11.  
  12. _abort()
  13. { 
  14.   longjmp(jb, 1);
  15. }
  16.  
  17. main()
  18. {
  19.   struct MsgPort *mp;
  20.   struct Message *ms;
  21.   
  22.   if (mp=CreatePort("debug.port",0))
  23.     {
  24.       if (setjmp(jb))
  25.     {
  26.       Forbid();
  27.       /* since ^C is checked during IO, puts() is probably interrupted.. */
  28.       if (ms) ReplyMsg(ms);
  29.       while (ms = GetMsg(mp)) ReplyMsg(ms);
  30.       DeletePort(mp);
  31.       Permit();
  32.       exit(1);
  33.     }
  34.  
  35.       for (;;)
  36.         {
  37.           WaitPort(mp);
  38.           while (ms = GetMsg(mp))
  39.         {
  40.           puts(*(char **)&ms[1]);
  41.           ReplyMsg(ms);
  42.           ms = 0;
  43.         }
  44.     }
  45.     }
  46. }
  47.  
  48.